home *** CD-ROM | disk | FTP | other *** search
/ IBM OEM Software Product … CD For PC Manufacturers / IBM OEM Software - Product Sampler CD for PC Manufacturers.iso / InternetIntranets / Notes / LOTUS027.DSK / MODEMS / SPRNTPAD.SCR < prev    next >
Text File  |  1993-01-21  |  5KB  |  142 lines
  1. ;    -A COMMENTED X.25 PAD CONNECT SCRIPT-
  2.  
  3. ; Last revision date 01/20/93 (update this each time 
  4. ; you edit, and save the edited file under another
  5. ; name to keep this one intact).
  6.  
  7. ; This script file is a fully functional example
  8. ; provided to help explain the contents and uses of
  9. ; a Notes Connect script (.SCR) file.  It was created 
  10. ; for dialing in to a Sprint PAD (Packet Assembler-
  11. ; Disassembler); however, this file may also be used 
  12. ; as a starting point for creating new script files
  13. ; for other PADs.  All non-blank lines not beginning 
  14. ; with a semicolon should be edited for compatibility
  15. ; with commands and replies specific to the PAD you
  16. ; are dialing in to (consult with the vendor for
  17. ; further information).  All blank lines and lines
  18. ; beginning with a semicolon are ignored by the
  19. ; Notes program; lines beginning with a semicolon
  20. ; are remarks to the reader.  All other lines are part
  21. ; of the actual script.
  22.  
  23. ; Note that there is also a sample ACQUIRE script
  24. ; provided, which also highlights many of the 
  25. ; features of the scripting language (from the menu,
  26. ; click Tools, Call, Additional Setup, Scripts, then 
  27. ; Edit to view the ACQUIRE script comserv.scr).
  28.  
  29. ;===============================================
  30.  
  31. ; In Notes' scripting language, the "DESC" parameter
  32. ; controls what is seen in the "Connect script"
  33. ; section of the "Call Setup" dialog box:
  34.  
  35. DESC This script logs into a Sprint (or identical) PAD.
  36.  
  37. ; The "TYPE" parameter differentiates between a "Connect" 
  38. ; script and an "Acquire" script. For PAD dialing the 
  39. ; TYPE must be "CONNECT".  A Connect script differs from 
  40. ; an Acquire script in that it is executed after the modem 
  41. ; file, and is used to interact with a remote device, in 
  42. ; this case an X.25 PAD.
  43.  
  44. TYPE CONNECT
  45.  
  46. ; "Arguments" are user-editable PAD requirements such
  47. ; as addresses, usernames, passwords, etc.  They can be
  48. ; typed into the Notes Name & Address book, or into the 
  49. ; "Call Setup" dialog box, where they can be changed
  50. ; "on-the-fly" as needed for each call:
  51.  
  52. ARG1 1. REMOTE DTE ADDRESS:
  53. ARG2 2. None entered:
  54. ARG3 3. None entered:
  55. ARG4 4. None entered:
  56.  
  57. ; Send "@," "D," followed by a <CR> (empty quotes, no 
  58. ; semicolon) in order to autobaud to PAD at 8 bits, no 
  59. ; parity.  Responses must be enclosed in quotes, and 
  60. ; each line not followed by a carriage return must end 
  61. ; in a semicolon.  These particular replies are specific 
  62. ; to Sprint:
  63.  
  64. REPLY "@";
  65. REPLY "D";
  66. REPLY ""
  67.  
  68. ; Notes will WAIT 10 seconds (user-extendable if desired)
  69. ; for the PAD to ask for a terminal type (TERM).  On error 
  70. ; or failure this script will branch to the user-editable 
  71. ; label--"TIMEOUT", in this case (see end of script), 
  72. ; else REPLY to PAD with "D1" (required by Sprint):
  73.  
  74. WAIT 10 FOR "TERM"
  75. ERROR TIMEOUT
  76. REPLY "D1"
  77.  
  78. ; Set up PAD parameters to CCITT values required by 
  79. ; Notes, branch to "TIMEOUT2" label (at end of this
  80. ; script) if PAD does not respond with its "@" prompt 
  81. ; (also Sprint specific) within one second:
  82.  
  83. REPLY "SET 1:0,2:0,3:0,4:20,5:0,7:0,8:0,9:0"
  84. WAIT 1 FOR "@"
  85. ERROR TIMEOUT2
  86.  
  87. REPLY "SET 10:0,12:0,13:0,14:0,15:0,16:0,17:0,18:0"
  88. WAIT 1 FOR "@"
  89. ERROR TIMEOUT2
  90.  
  91. REPLY "SET 19:1,20:255"
  92. WAIT 1 FOR "@"
  93. ERROR TIMEOUT2
  94.  
  95. ; Attempt to connect to remote DTE address entered 
  96. ; as Argument 1 (ARG1) above. If other Arguments such
  97. ; as a password, etc., were required they would also 
  98. ; go here in the form of REPLY "^2", REPLY "^3", and 
  99. ; so forth; the vendor would need to be contacted
  100. ; for the additional appropriate replies and legal
  101. ; syntax.  WATCH 5 seconds for one of the following
  102. ; responses and parse the response (responses are 
  103. ; Sprint specific, END or FAIL are script commands,
  104. ; messages to the right of a FAIL command are 
  105. ; user-editable and purely informational--for Script 
  106. ; Log I/O purposes only):
  107.  
  108. REPLY "^1"
  109. WATCH 5
  110.    "CONNECTED" END
  111.    "REJECTING" FAIL > Call rejected
  112.    "ILLEGAL ADDRESS" FAIL > Illegal DTE address
  113.    "?" FAIL > Unrecognized DTE address
  114. ENDW
  115.  
  116. ; ENDW tells the program to End Watch, permitting
  117. ; the program to "fall through" to an unlabeled
  118. ; failure and user-editable message:
  119.  
  120. FAIL > Timed out trying to connect
  121.  
  122. ;===================================================
  123. ; Note concerning LABELS
  124.  
  125. ; The script author may create as many labels as needed
  126. ; in order to send to the log a report on the point at
  127. ; which the script failed and why.  Two labels were 
  128. ; employed in this script.  The message to the right 
  129. ; of the FAIL command is what will be printed in the
  130. ; log.nsf file.  Note that each label must begin with a 
  131. ; colon:
  132.  
  133. :TIMEOUT
  134. FAIL > Timed out waiting for PAD "TERM" type inquiry
  135.  
  136. :TIMEOUT2
  137. FAIL > Timed out waiting for PAD "@" response
  138.  
  139.  
  140. ;              <end of script>
  141.  
  142.